#!/usr/bin/perl

my @f = grep {$_ ne 'index.html'} split(/\n/,`cd .. ; ls`);

print "Content-type: application/zip
Content-Disposition: attachment; filename=images.zip

";
system "cd .. ; zip -q - @f";